﻿Public Class FormBuscarJugadores

    Private _miCampeonato As Campeonato
    Private _resultadoBusqueda As List(Of String)
    Private _formDestino As String 'para enviar los datos a uno u otro formulario
    Private _jugadorSeleccionadoEnFormAltaEquipo As String ' para saber que jugador de FormAltaEquipo he seleccionado

    Property formDestino As String
        Get
            Return _formDestino
        End Get
        Set(value As String)
            _formDestino = value
        End Set
    End Property

    Property jugadorSeleccionadoEnForAltaEquipo As String
        Get
            Return Me._jugadorSeleccionadoEnFormAltaEquipo
        End Get
        Set(value As String)
            Me._jugadorSeleccionadoEnFormAltaEquipo = value
        End Set
    End Property

    Private Sub FormBuscar_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FormEntrada
        Me._miCampeonato = New Campeonato()
        Me._resultadoBusqueda = New List(Of String)
        Me.ListBoxBuscar.Items.Clear()
    End Sub

    Private Sub BtnBuscarBuscar_Click(sender As Object, e As EventArgs) Handles BtnBuscarBuscar.Click
        Me.ListBoxBuscar.Items.Clear()
        Me._resultadoBusqueda = _miCampeonato.buscarJugador(Me.TbxBuscarBuscar.Text)
    End Sub

    Private Sub ListBoxBuscar_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxBuscar.SelectedIndexChanged
        Dim TodosLosDatosSeparados = New String(14) {}
        Dim indiceElementoSelecionado As Integer = ListBoxBuscar.SelectedIndex
        TodosLosDatosSeparados = CStr(_resultadoBusqueda(indiceElementoSelecionado)).Split(CChar("-"))

        If _formDestino = "FormModificarJugador" Then
            FormModificarJugador.txtNIFConsulta.Text = TodosLosDatosSeparados(0)
            FormModificarJugador.txtNombreConsulta.Text = TodosLosDatosSeparados(1)
            FormModificarJugador.txtApellidosConsulta.Text = TodosLosDatosSeparados(2)
            FormModificarJugador.txbFechaNacimieto.Text = TodosLosDatosSeparados(3)
            FormModificarJugador.txtCalleConsulta.Text = TodosLosDatosSeparados(4)
            FormModificarJugador.txtNumConsulta.Text = TodosLosDatosSeparados(5)
            FormModificarJugador.txtPuertaConsulta.Text = TodosLosDatosSeparados(6)
            FormModificarJugador.txtLocalidadConsulta.Text = TodosLosDatosSeparados(7)
            FormModificarJugador.txtProvinciaConsulta.Text = TodosLosDatosSeparados(8)
            FormModificarJugador.txtCorreoConsulta.Text = TodosLosDatosSeparados(9)
            If CBool(TodosLosDatosSeparados(10)) Then
                FormModificarJugador.rbtWhatsAppSi.Checked = True
            Else
                FormModificarJugador.rtbWhatsAppNO.Checked = True
            End If
            FormModificarJugador.txtFacebookConsulta.Text = TodosLosDatosSeparados(11)
            FormModificarJugador.txtTwitterConsulta.Text = TodosLosDatosSeparados(12)
            FormModificarJugador.idJuagadorAModificar = CInt(TodosLosDatosSeparados(14)) 'asi se el id para poder modificar
        ElseIf _formDestino = "FormBajaJugador" Then
            FormBajaJugador.tbxBajaNIF.Text = TodosLosDatosSeparados(0)
            FormBajaJugador.tbxBajaNombre.Text = TodosLosDatosSeparados(1)
            FormBajaJugador.tbxBajaApellidos.Text = TodosLosDatosSeparados(2)
            FormBajaJugador.tbxBajaFecha.Text = TodosLosDatosSeparados(3)
            FormBajaJugador.tbxBajaCalle.Text = TodosLosDatosSeparados(4)
            FormBajaJugador.tbxBajaNumero.Text = TodosLosDatosSeparados(5)
            FormBajaJugador.tbxBajaPuerta.Text = TodosLosDatosSeparados(6)
            FormBajaJugador.tbxBajaLocalidad.Text = TodosLosDatosSeparados(7)
            FormBajaJugador.tbxBajaProvincia.Text = TodosLosDatosSeparados(8)
            FormBajaJugador.tbxBajaCorreoElectronico.Text = TodosLosDatosSeparados(9)
            If CBool(TodosLosDatosSeparados(10)) Then
                FormBajaJugador.rbBajaWhatAppSi.Checked = True
            Else
                FormBajaJugador.rbBajaWhatsAppNo.Checked = True
            End If
            FormBajaJugador.tbxBajaFacebook.Text = TodosLosDatosSeparados(11)
            FormBajaJugador.tbxBajaTwiter.Text = TodosLosDatosSeparados(12)
            FormBajaJugador.idJugadoresAEliminar = CInt(TodosLosDatosSeparados(14)) 'asi se el id para poder borrar
        ElseIf _formDestino = "FormAltaEquipo" Then
            If Me._jugadorSeleccionadoEnFormAltaEquipo = "J1" Then
                FormAltaEquipo.tbxNIF.Text = TodosLosDatosSeparados(0)
                FormAltaEquipo.tbxNombre.Text = TodosLosDatosSeparados(1)
                FormAltaEquipo.tbxApellidos.Text = TodosLosDatosSeparados(2)
                FormAltaEquipo.tbxFecha.Text = TodosLosDatosSeparados(3)
                FormAltaEquipo.tbxCalle.Text = TodosLosDatosSeparados(4)
                FormAltaEquipo.tbxNumero.Text = TodosLosDatosSeparados(5)
                FormAltaEquipo.tbxPuerta.Text = TodosLosDatosSeparados(6)
                FormAltaEquipo.tbxLocalidad.Text = TodosLosDatosSeparados(7)
                FormAltaEquipo.tbxProvincia.Text = TodosLosDatosSeparados(8)
                FormAltaEquipo.tbxEmail.Text = TodosLosDatosSeparados(9)
                FormAltaEquipo.tbxFacebook.Text = TodosLosDatosSeparados(11)
                FormAltaEquipo.tbxTwiter.Text = TodosLosDatosSeparados(12)
                FormAltaEquipo.idJugadorCapitan = CInt(TodosLosDatosSeparados(14)) 'asi se el id del jugador 1 para insertarlo
            Else
                FormAltaEquipo.tbxNIF2.Text = TodosLosDatosSeparados(0)
                FormAltaEquipo.tbxNombre2.Text = TodosLosDatosSeparados(1)
                FormAltaEquipo.tbxApellidos2.Text = TodosLosDatosSeparados(2)
                FormAltaEquipo.tbxFecha2.Text = TodosLosDatosSeparados(3)
                FormAltaEquipo.tbxCalle2.Text = TodosLosDatosSeparados(4)
                FormAltaEquipo.tbxNumero2.Text = TodosLosDatosSeparados(5)
                FormAltaEquipo.tbxPuerta2.Text = TodosLosDatosSeparados(6)
                FormAltaEquipo.tbxLocalidad2.Text = TodosLosDatosSeparados(7)
                FormAltaEquipo.tbxProvincia2.Text = TodosLosDatosSeparados(8)
                FormAltaEquipo.tbxEmail2.Text = TodosLosDatosSeparados(9)
                FormAltaEquipo.tbxFacebook2.Text = TodosLosDatosSeparados(11)
                FormAltaEquipo.tbxTwiter2.Text = TodosLosDatosSeparados(12)
                FormAltaEquipo.idJugadorNormal = CInt(TodosLosDatosSeparados(14)) 'asi se el id del jugador 2 para insertarlo
            End If
        ElseIf _formDestino = "FormModificarEquipo" Then
            If Me._jugadorSeleccionadoEnFormAltaEquipo = "J1" Then
                FormModificarEquipo.tbxModNIF.Text = TodosLosDatosSeparados(0)
                FormModificarEquipo.tbxModNombre.Text = TodosLosDatosSeparados(1)
                FormModificarEquipo.tbxModApellidos.Text = TodosLosDatosSeparados(2)
                FormModificarEquipo.tbxModFecha.Text = TodosLosDatosSeparados(3)
                FormModificarEquipo.tbxModCalle.Text = TodosLosDatosSeparados(4)
                FormModificarEquipo.tbxModNumero.Text = TodosLosDatosSeparados(5)
                FormModificarEquipo.tbxModPuerta.Text = TodosLosDatosSeparados(6)
                FormModificarEquipo.tbxModLocalidad.Text = TodosLosDatosSeparados(7)
                FormModificarEquipo.tbxModProvincia.Text = TodosLosDatosSeparados(8)
                FormModificarEquipo.tbxModEmail.Text = TodosLosDatosSeparados(9)
                FormModificarEquipo.tbxModFacebook.Text = TodosLosDatosSeparados(11)
                FormModificarEquipo.tbxModTwiter.Text = TodosLosDatosSeparados(12)
                FormModificarEquipo.idJugadorCapitan = CInt(TodosLosDatosSeparados(14)) 'asi se el id del jugador 1 para modificarlo
            ElseIf Me._jugadorSeleccionadoEnFormAltaEquipo = "J2" Then
                FormModificarEquipo.tbxModNIF2.Text = TodosLosDatosSeparados(0)
                FormModificarEquipo.tbxModNombre2.Text = TodosLosDatosSeparados(1)
                FormModificarEquipo.tbxModApellidos2.Text = TodosLosDatosSeparados(2)
                FormModificarEquipo.tbxModFecha2.Text = TodosLosDatosSeparados(3)
                FormModificarEquipo.tbxModCalle2.Text = TodosLosDatosSeparados(4)
                FormModificarEquipo.tbxModNumero2.Text = TodosLosDatosSeparados(5)
                FormModificarEquipo.tbxModPuerta2.Text = TodosLosDatosSeparados(6)
                FormModificarEquipo.tbxModLocalidad2.Text = TodosLosDatosSeparados(7)
                FormModificarEquipo.tbxModProvincia2.Text = TodosLosDatosSeparados(8)
                FormModificarEquipo.tbxModEmail2.Text = TodosLosDatosSeparados(9)
                FormModificarEquipo.tbxModFacebook2.Text = TodosLosDatosSeparados(11)
                FormModificarEquipo.tbxModTwiter2.Text = TodosLosDatosSeparados(12)
                FormModificarEquipo.idJugadorNormal = CInt(TodosLosDatosSeparados(14)) 'asi se el id del jugador 2 para modifircarlo
            End If
        End If
        Me.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class